type shell_color =
    White
  | Cyan
  | Magenta
  | Blue
  | Yellow
  | Green
  | Red
  | Black
type lightness = Bright | Dark
val teinte : Color.t -> int
val lumine : Color.t -> float
val sature : Color.t -> float
val selcol : Color.t -> shell_color
val sellight : Color.t -> lightness
val selwb : Color.t -> lightness * shell_color
val getcol : shell_color -> int
val getlight : lightness -> int
val getwb : lightness * shell_color -> int * int
val prepare : Color.t -> int * int
val get_colored_str : Color.t -> string -> unit
val print : string * Color.t -> bool -> unit
val get_col : Color.t -> int
